home *** CD-ROM | disk | FTP | other *** search
- ' SOUND-2.BAS
- ' This program demonstrates how to play a song in BASIC.
-
- CLS
-
- INPUT "Press Enter to begin...", dummy$
-
- FOR i% = 1 TO 34
- READ note%, duration%
- SOUND note%, duration%
- NEXT i%
-
- ' My bon- nie lies o- ver the
- DATA 392, 8, 659, 8, 587, 8, 523, 8, 587, 8, 523, 8, 440, 8
-
- ' o- cean, My bon- nie lies
- DATA 392, 8, 330, 32, 392, 8, 659, 8, 587, 8, 523, 8
-
- ' o- ver the sea; My bon- nie
- DATA 523, 8, 494, 8, 523, 8, 587, 40, 392, 8, 659, 8, 587, 8
-
- ' lies o- ver the o- cean-- O
- DATA 523, 8, 587, 8, 523, 8, 440, 8, 392, 8, 330, 32, 392, 8
-
- ' bring back my bon- nie to me!
- DATA 440, 8, 587, 8, 523, 8, 494, 8, 440, 8, 494, 8, 523, 32
-
-